<!DOCTYPE stack PUBLIC "-//Apple, Inc.//DTD stack V 2.0//EN" "" >
<stack>
<name>in.ctb</name>
<id>-1</id>
<cardCount>429</cardCount>
<cardID>2864</cardID>
<listID>19324</listID>
<cantModify><false /></cantModify>
<cantDelete><false /></cantDelete>
<cantAbort><false /></cantAbort>
<cardSize>
<width>640</width>
<height>440</height>
</cardSize>
<script>function pictureClickanswer "OK"send mouseDown to button Hereend pictureClickon doMenu menuItemglobal mainLocglobal speakNameglobal lastImageglobal voiceChoiceif menuItem is "Print Text" thenset lockErrorDialogs to truesend mouseUp to bg button "Print Text"set lockErrorDialogs to falseelse if menuItem is "Read Text" thenstop speechif the number of bg fields >= 1 thenset lockErrorDialogs to trueput bg field 1 into xset lockErrorDialogs to falsespeak x with voice voiceChoiceend ifend ifpass doMenuend doMenu------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------on closeStackAddColor remove-- Called upon HOME or OPEN STACK-- delete menu "Help"-- reset menuBar -- Don't display CATEGORIES menustop speechpass closeStackend closeStack------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------on openStackAddColor installglobal QToperationalglobal lastImagestop speechput 1 into QToperationalenable menuItem "Copy Text" of menu "Edit"enable menuItem "Copy Image" of menu "Edit"set lockMessages to trueQTMovie versionput the result into xxxxput it into kkkif "Error" is in xxxx thenanswer "QuickTime is not available, some options will not be available"put 0 into QToperationalend ifset lockMessages to false-- put NULL into lastImage-- helpMenu -- Display CATEGORIES menupass openStackend openStack------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------on suspendStack -- Called upon HELPstop speech-- reset menuBar -- Don't display CATEGORIES menuend suspendStack------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------on resumeStack -- Called upon return from HELPenable menuItem "Copy Text" of menu "Edit"enable menuItem "Copy Image" of menu "Edit"-- helpMenu -- Re-display CATEGORIES menuend resumeStack------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------on helpMenu-- Display Help menuif there is a menu "Help" then exit helpMenucreate menu "Help"put helpMenuItems() into menu "Help"set the menuMessage of menuItem "Help Factbook" of Menu "Help" to go to Card 3end helpMenu------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------function helpMenuItemsreturn ¬"Help Factbook" & returnend helpMenuItemson wayzataGoTo cardNameset cursor to watchvisual iris open slowgo to card cardNameend wayzataGoToon wayzataGoToNum Num, cardNameset cursor to watchvisual iris open slowgo to card Numend wayzataGoToNumon wayzataGoToBackset cursor to watchvisual iris open slowgo to Backend wayzataGoToBackon WayzataGoPreviousset cursor to watchvisual iris open slowgo previousend WayzataGoPreviouson WayzataGoNextset cursor to watchvisual iris open slowgo nextend WayzataGoNexton wayzataViewMap nameglobal lastImageput "WFB 1996:Maps:" & name into PICT-- put "" & name into PICTput PICT into lastImagepicture PICT ,File,,,true,deepest-- Put the Result & " [" & PICT &"]"if the result is not empty thenanswer "The Map could not be displayed, error:" & return & the resultelseenable menuItem "Print Image" of menu "File"enable menuItem "Copy Image" of menu "Edit"end ifend wayzataViewMapon wayzataViewXMap nameglobal lastImageput "WFB 1996:regions:" & name into PICT-- put "" & name into PICTput PICT into lastImagepicture PICT ,File,,,true,deepest-- Put the Result & " [" & PICT &"]"if the result is not empty thenanswer "The Map could not be displayed, error:" & return & the resultelseenable menuItem "Print Image" of menu "File"enable menuItem "Copy Image" of menu "Edit"end ifend wayzataViewXMapon wayzataViewChart nameglobal lastImageput "WFB 1996:Charts:" & name into PICTput PICT into lastImagepicture PICT ,File,,,true,deepest-- Put the Result & " [" & PICT &"]"if the result is not empty thenanswer "The Chart could not be displayed, error:" & return & the resultelseenable menuItem "Print Image" of menu "File"enable menuItem "Copy Image" of menu "Edit"end ifend wayzataViewCharton WayzataPShow nameglobal lastImageput "WFB 1996:Photos:" & name & ".PCT" into PICTput PICT into lastImagepicture PICT ,File,,,true,deepest-- Put the Result & " [" & PICT &"]"if the result is not empty thenanswer "The Photo could not be displayed, error:" & return & the resultelseenable menuItem "Print Image" of menu "File"enable menuItem "Copy Image" of menu "Edit"end ifend WayzataPShowon findGlobalString-- Find string within global scope of the stack. When the string is found, the card in which-- it resides is opened, then a dialog is presented to find again. The domain for this search-- is the field "countryText" in all categories. The search string is retained as a-- global variable; it will be presented as the default for the next FIND.global findStringAsk "Please enter a word/phrase to find: " with findStringif the result is not "Cancel" thenput it into findStringPut "Find Next" into ansFindAgainrepeat while ansFindAgain is "Find Next"if findString is not Empty thenfind string findString in bg field "countryText"if the result is "not found" thenAnswer "'"&findString&"' was not Found" With "OK"put it into ansFindAgain -- OK forces Failure of Loopelseput the foundLine into myfoundLineput word 2 of myfoundLine into lineNumput line 1 of line lineNum of bg field countryText into foundNamewait 1 secondsAnswer "Found '"&foundName&"'."&return&&return&"Find '"&findString&"' Again?" With¬"Done" or "Find Next"put it into ansFindAgain -- Done forces Failure of Loopend ifelseput "null" into ansFindAgainend ifend repeatend ifend findGlobalStringon findLocalStringCountryask "Find"if the result is "Cancel" then-- the user clicked the Cancel buttonelse if it is empty then-- the user clicked OK with no answerelse-- the user clicked OK and provided an answer-- put the id of field "countryText" into fFieldif it is in background field "countryText" thenfind it in background field "countryText" of this cardif the result is "Not Found" thenanswer "Text Not Found:" && itend ifelseanswer "Text Not Found:" && itend ifend ifend findLocalStringCountryon findLocalStringask "Find"if the result is "Cancel" then-- the user clicked the Cancel buttonelse if it is empty then-- the user clicked OK with no answerelse-- the user clicked OK and provided an answer-- put the id of field "countryText" into fFieldif it is in background field "topicText" thenfind it in background field "topicText" of this cardif the result is "Not Found" thenanswer "Text Not Found:" && itend ifelseanswer "Text Not Found:" && itend ifend ifend findLocalStringon findChartStringask "Find"if the result is "Cancel" then-- the user clicked the Cancel buttonelse if it is empty then-- the user clicked OK with no answerelse-- the user clicked OK and provided an answer-- put the id of field "countryText" into fFieldif it is in background field "highList" thenfind it in background field "highList" of this cardif the result is "Not Found" thenanswer "Text Not Found:" && itend ifelseanswer "Text Not Found:" && itend ifend ifend findChartStringon findGroupStringask "Find"if the result is "Cancel" then-- the user clicked the Cancel buttonelse if it is empty then-- the user clicked OK with no answerelse-- the user clicked OK and provided an answer-- put the id of background field "groupText" into fFieldif it is in background field "groupText" thenfind it in background field "groupText" of this cardif the result is "Not Found" thenanswer "Text Not Found:" && itend ifelseanswer "Text Not Found:" && itend ifend ifend findGroupString---------------------------------------------------------------------------------------------------on openCard-- answer "yes"-- lock screenSend colorMe to this card-- wait 1unlock screen-- put stackSpace()pass openCardend openCardon closeCardlock screenstop speechpass closeCardend closeCardon colorMeAddColor colorCard,stamp,30end colorMeon WTIprintImageput "WFB 1996:Maps:" & line 1 of background field shortname & ".PCT" into fName-- get the short name of this card-- put char 2 to 8 of it into xImage-- put "guinness:mac:Earth:" & xImage into fName-- put fName-- put line 1 of bg field "countryText" into x-- put char 30 to 250 of x into xTitle-- put empty into char 200 of xTitlePICTPrint fName, ""end WTIprintImageon WTIprintlastImageglobal lastImageif lastImage = NULL thenanswer "You need to first select an image to print it."elsePICTPrint lastImage, ""end ifend WTIprintlastImageon WTIprintChartsput "WFB 1996:Charts:" & line 1 of background field "HighName" into fNamePICTPrint fName, ""put "WFB 1996:Charts:" & line 1 of background field "LowName" into fNamePICTPrint fName, ""end WTIprintChartson WTIcopyImageput "WFB 1996:Maps:" & line 1 of background field shortname & ".PCT" into fName-- put "WFB 1996:maps:" & xImage & ".PCT" into fName-- put fNamePICTtoScrap fNameend WTIcopyImageon PlayMovie movieSName, pPathglobal movieNamestop speechset cursor to 4DisposeVideo -- in case one's already thereput "WFB 1996:" & pPath & movieSName into MyMoovie-- put MyMoovie--QTMovie OpenMovie, windoid, MyMoovie, deepest, dontPaintWhite, closeOnFinish-- QTMovie OpenMovie, windoid, MyMoovie, deepest,,,,,,loopQTMovie OpenMovie, windoid, MyMoovie, deepest,,,,,,get the result-- put it into movieID-- put movieIDif "Error" is in it then-- put the resultanswer "Couldn't Play That Movie"exit PlayMovieelseput movieSName into movieNameend ifend PlayMovieon PlayMovieLooped movieSName, pPathglobal movieNamestop speechset cursor to 4DisposeVideo -- in case one's already thereput "WFB 1996:" & pPath & movieSName into MyMoovie-- put MyMoovie--QTMovie OpenMovie, windoid, MyMoovie, deepest, dontPaintWhite, closeOnFinishQTMovie OpenMovie, windoid, MyMoovie, deepest,,,,,,loop-- QTMovie OpenMovie, windoid, MyMoovie, deepest,,,,,,get the result-- put it into movieID-- put movieIDif "Error" is in it then-- put the resultanswer "Couldn't Play That Movie"exit PlayMovieLoopedelseput movieSName into movieNameend ifend PlayMovieLoopedon DisposeVideoglobal movieNameif movieName is not empty then-- put windows() into xListif offset( movieName, windows() ) = 0 thenelseclose window movieNameend ifput empty into movieNameend ifend DisposeVideoon idleglobal movieiDif movieID is not empty thenQTMovie Direct, movieID, idleend ifif the selection is empty thendisable menuItem "Copy Text" of menu "Edit"put the number of lines in the voices into xif x > 0 thendisable menuItem "Read Selected Text" of menu "Reader"end ifelseenable menuItem "Copy Text" of menu "Edit"put the number of lines in the voices into xif x > 0 thenenable menuItem "Read Selected Text" of menu "Reader"end ifend ifpass idleend idleon Titleend Titleon refreshglobal movieIDQTMovie Direct, Movie ID, Get, movieLocput the result into xyQTMovie Direct, Movie ID, Set. movieLoc, xyend refreshon goSearchglobal mainLocgo to card 2 of mainLocend goSearch</script>
<card id="105677" file="card_105677.xml" marked="false" name="Popular Front for the Liberation of Palestine (PFLP)" owner="18447" />
<card id="105811" file="card_105811.xml" marked="false" name="Popular Front for the Liberation of Palestine-General Command (PFLP-GC)" owner="18447" />
<card id="106178" file="card_106178.xml" marked="false" name="Popular Front for the Liberation of Palestine-Special Command (PFLP-SC)" owner="18447" />
<card id="125067" file="card_125067.xml" marked="false" name="Popular Struggle Front (PSF)" owner="18447" />
<card id="127167" file="card_127167.xml" marked="false" name="PPalestine Liberation Front (PLF)" owner="18447" />
